' Check to see that we have some orders.
If Not moOrder1 Is Nothing And Not moOrder2 Is Nothing Then
If moOrder1.IsWorking And moOrder2.IsWorking Then
' Create the batch revision object.
Dim oBatch As OrderList.Revision
oBatch = moAccounts.ReviseOrders(moOrder1.Account, moOrder1.Market)
' Add the order to the revision.
oBatch.AddTicks(moOrder1, 2, moOrder1.CurrentLimitTicks)
' Add the order to the revision.
oBatch.AddTicks(moOrder2, 2, moOrder2.CurrentLimitTicks)
' Revise the batch.
oBatch.Revise()
End If
End If